(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     19182,        728]
NotebookOptionsPosition[     14122,        547]
NotebookOutlinePosition[     14749,        571]
CellTagsIndexPosition[     14670,        566]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["TransferMatrixFormalism Package", "Categorization",
 CellChangeTimes->{3.6000068625350084`*^9},
 CellLabel->"Paclet Name",
 CellID->58870075],

Cell["TransferMatrixFormalism`", "Categorization",
 CellLabel->"Context",
 CellID->419242564],

Cell["TransferMatrixFormalism/ref/RefractionAngle", "Categorization",
 CellChangeTimes->{3.6000068630498095`*^9},
 CellLabel->"URI",
 CellID->61765370]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellID->1164421360]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["RefractionAngle", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["   ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["RefractionAngle",
    BaseStyle->"Link",
    ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"], "[", 
   RowBox[{
    SubscriptBox[
     StyleBox["\[Theta]", "TI"], 
     StyleBox["1", "TR"]], ",", 
    StyleBox[
     SubscriptBox["n", "1"], "TI"], ",", 
    SubscriptBox[
     StyleBox["n", "TI"], 
     StyleBox["2", "TR"]]}], "]"}]], "InlineFormula",
  ShowStringCharacters->False],
 "\[LineSeparator]calculates the refraction angle from normal in medium 2 ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["2", "TR"]]], "InlineFormula"],
 " at the planar boundary between medium 1 and medium 2 using Snell's Law \
with the angle of incidence from normal in medium 1 ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["1", "TR"]]], "InlineFormula"],
 " and the refractive indices of the two materials ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 "."
}], "Usage",
 Deletable->True,
 CellChangeTimes->{{3.598231844180751*^9, 3.598231958468552*^9}, {
  3.598285547661858*^9, 3.598285556841871*^9}, {3.5982922202672415`*^9, 
  3.5982923806044664`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 " is calculated from Snell's Law ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Theta]", "2"], "=", 
    RowBox[{
     SuperscriptBox["sin", 
      RowBox[{"-", "1"}]], "(", 
     FractionBox[
      RowBox[{
       SubscriptBox["n", "1"], " ", 
       RowBox[{"sin", "(", 
        SubscriptBox["\[Theta]", "1"], ")"}]}], 
      SubscriptBox["n", "2"]], ")"}]}], TraditionalForm]], "InlineMath"]
}], "Notes",
 Deletable->True,
 CellChangeTimes->{{3.5982923938354845`*^9, 3.5982924886876187`*^9}},
 CellID->1067943069],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionAngle",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"]], 
  "InlineFormula",
  ShowStringCharacters->False],
 " adopts the ",
 Cell[BoxData[
  ButtonBox["Attributes",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 " of ",
 Cell[BoxData[
  ButtonBox["ArcSin",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 ", ",
 Cell[BoxData[
  ButtonBox["Sin",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 ", ",
 Cell[BoxData[
  ButtonBox["Times",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 ", and ",
 Cell[BoxData[
  ButtonBox["Power",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 " as can be seen in its ",
 Cell[BoxData[
  ButtonBox["FullForm",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 ":"
}], "Notes",
 CellChangeTimes->{{3.5982925000276346`*^9, 3.5982926055707846`*^9}, {
  3.5982926377038293`*^9, 3.5982926674368715`*^9}, {3.598292708668929*^9, 
  3.598292803193062*^9}, {3.598292835003106*^9, 3.598292882899178*^9}, {
  3.5982932005636263`*^9, 3.5982932394446807`*^9}},
 CellID->690532648],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullForm", "[", "RefractionAngle", "]"}]], "Input",
 CellChangeTimes->{{3.5982925000276346`*^9, 3.5982926055707846`*^9}, {
  3.5982926377038293`*^9, 3.5982926674368715`*^9}, {3.598292708668929*^9, 
  3.598292803193062*^9}, {3.598292835003106*^9, 3.5982929260912385`*^9}, {
  3.5982929821153173`*^9, 3.5982929959663367`*^9}, {3.59829311929551*^9, 
  3.598293173301588*^9}},
 CellLabel->"In[7]:=",
 CellID->189327179],

Cell[BoxData[
 TagBox[
  StyleBox[
   RowBox[{"Function", "[", 
    RowBox[{"ArcSin", "[", 
     RowBox[{"Times", "[", 
      RowBox[{
       RowBox[{"Slot", "[", "2", "]"}], ",", 
       RowBox[{"Power", "[", 
        RowBox[{
         RowBox[{"Slot", "[", "3", "]"}], ",", 
         RowBox[{"-", "1"}]}], "]"}], ",", 
       RowBox[{"Sin", "[", 
        RowBox[{"Slot", "[", "1", "]"}], "]"}]}], "]"}], "]"}], "]"}],
   ShowSpecialCharacters->False,
   ShowStringCharacters->True,
   NumberMarks->True],
  FullForm]], "Output",
 CellChangeTimes->{{3.598292976114309*^9, 3.5982929976163387`*^9}, {
  3.5982931542805614`*^9, 3.598293173771589*^9}},
 CellLabel->"Out[7]//FullForm=",
 CellID->526268719]
}, Open  ]],

Cell[TextData[{
 "In partiular, it is  ",
 Cell[BoxData[
  ButtonBox["Listable",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 " so that it will automatically ",
 Cell[BoxData[
  ButtonBox["Thread",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 " over any argument provided as a ",
 Cell[BoxData[
  ButtonBox["List",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 ".  ",
 ButtonBox["See Below",
  BaseStyle->"Link",
  ButtonData->
   "paclet:TransferMatrixFormalism/ReferencePages/Symbols/RefractionAngle#\
202926639"],
 "."
}], "Notes",
 CellChangeTimes->{{3.5982925000276346`*^9, 3.5982926055707846`*^9}, {
   3.5982926377038293`*^9, 3.5982926674368715`*^9}, {3.598292708668929*^9, 
   3.598292803193062*^9}, {3.598292835003106*^9, 3.5982928839391794`*^9}, {
   3.598293059462426*^9, 3.5982930899724684`*^9}, 3.5982932579347067`*^9, 
   3.5982937317723775`*^9},
 CellID->240050129]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["RefractionMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["PhaseMv",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/PhaseMv"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AbelesS",
   BaseStyle->"Link",
   ButtonData->"paclet:TransferMatrixFormalism/ref/AbelesS"]], "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.598293476391014*^9, 3.5982935021630507`*^9}},
 CellID->929782353]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Calculate the refraction angle in degrees for an air-glass interface:\
\>", "ExampleText",
 CellChangeTimes->{{3.598231422907813*^9, 3.5982314645598865`*^9}, {
  3.5982315169467783`*^9, 3.598231519037182*^9}},
 CellID->155641686],

Cell[BoxData[
 RowBox[{"<<", "TransferMatrixFormalism`"}]], "Input",
 CellChangeTimes->{{3.600006879051837*^9, 3.6000068839190454`*^9}},
 CellLabel->"In[8]:=",
 CellID->357218336],

Cell[CellGroupData[{

Cell["\<\
RefractionAngle[60.\[Degree],1,1.45]180/\[Pi]\
\>", "Input",
 CellChangeTimes->{{3.5982314673054914`*^9, 3.5982315487982326`*^9}},
 CellLabel->"In[9]:=",
 CellID->113205628],

Cell[BoxData["36.67383197701625`"], "Output",
 CellChangeTimes->{3.5982315506390357`*^9, 3.600006886009449*^9},
 CellLabel->"Out[9]=",
 CellID->51801255]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell["\<\
Calculate complex refraction angle from an air interface for a material that \
absorb light:\
\>", "ExampleText",
 CellChangeTimes->{{3.598231706244309*^9, 3.5982317407515697`*^9}, {
  3.598231773464827*^9, 3.5982318055862837`*^9}},
 CellID->64086686],

Cell[CellGroupData[{

Cell["\<\
RefractionAngle[60.\[Degree],1,1.7+.7\[ImaginaryI]]\
\>", "Input",
 CellChangeTimes->{{3.598231742873173*^9, 3.5982317635432096`*^9}},
 CellLabel->"In[25]:=",
 CellID->68295875],

Cell[BoxData[
 RowBox[{"0.4414485710348054`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.19709299957910653`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.5982317645416117`*^9},
 CellLabel->"Out[25]=",
 CellID->185132598]
}, Open  ]],

Cell[TextData[{
 "Use the ",
 Cell[BoxData[
  ButtonBox["Listable",
   BaseStyle->"Link"]], "InlineFormula",
  ShowStringCharacters->False],
 " attribute to calculate the list of refraction angles through a thin film \
stack:"
}], "ExampleText",
 CellChangeTimes->{{3.5982315825420923`*^9, 3.5982316423233967`*^9}, {
  3.59829301958737*^9, 3.598293032268388*^9}},
 CellID->202926639],

Cell[CellGroupData[{

Cell["\<\
Module[{nList={1,1.7,1.45,3}},
RefractionAngle[60.\[Degree],nList[[1]],nList]]180/\[Pi]\
\>", "Input",
 CellChangeTimes->{{3.598231624040165*^9, 3.5982316811438646`*^9}, {
  3.598293287546748*^9, 3.5982933508838387`*^9}},
 CellLabel->"In[9]:=",
 CellID->77505142],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "60.`", ",", "30.62565060008684`", ",", "36.67383197701625`", ",", 
   "16.77865488096036`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5982316762222567`*^9, 3.598231681830266*^9}, {
  3.5982933350818152`*^9, 3.5982933522938404`*^9}},
 CellLabel->"Out[9]=",
 CellID->136576129]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{Automatic, 423}, {49, Automatic}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[10830, 426, 100, 2, 70, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 14531, 559}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 147, 3, 31, "Categorization",
 CellID->58870075],
Cell[1209, 50, 93, 2, 31, "Categorization",
 CellID->419242564],
Cell[1305, 54, 151, 3, 31, "Categorization",
 CellID->61765370]
}, Open  ]],
Cell[CellGroupData[{
Cell[1493, 62, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1551, 65, 45, 1, 70, "Keywords",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[1633, 71, 65, 1, 17, "TemplatesSection",
 CellID->1872225408],
Cell[1701, 74, 94, 2, 70, "Template",
 CellID->1562036412],
Cell[1798, 78, 82, 2, 70, "Template",
 CellID->158391909],
Cell[1883, 82, 81, 2, 70, "Template",
 CellID->1360575930],
Cell[1967, 86, 82, 2, 70, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2086, 93, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2142, 96, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2208, 100, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2280, 104, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2347, 108, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2419, 112, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2483, 116, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2547, 120, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2613, 124, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2694, 128, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2798, 135, 58, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2859, 138, 1262, 38, 103, "Usage"],
Cell[4124, 178, 738, 24, 41, "Notes",
 CellID->1067943069],
Cell[4865, 204, 1255, 43, 41, "Notes",
 CellID->690532648],
Cell[CellGroupData[{
Cell[6145, 251, 439, 8, 27, "Input",
 CellID->189327179],
Cell[6587, 261, 701, 21, 25, "Output",
 CellID->526268719]
}, Open  ]],
Cell[7303, 285, 966, 29, 41, "Notes",
 CellID->240050129]
}, Open  ]],
Cell[CellGroupData[{
Cell[8306, 319, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[8366, 322, 45, 1, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[8448, 328, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[8534, 331, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[8629, 337, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[8697, 340, 49, 1, 16, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[8783, 346, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[8841, 349, 616, 19, 19, "SeeAlso",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[9494, 373, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[9554, 376, 46, 1, 70, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[9637, 382, 356, 11, 70, "PrimaryExamplesSection",
 CellID->880084151],
Cell[9996, 395, 239, 5, 70, "ExampleText",
 CellID->155641686],
Cell[10238, 402, 179, 4, 70, "Input",
 CellID->357218336],
Cell[CellGroupData[{
Cell[10442, 410, 183, 5, 70, "Input",
 CellID->113205628],
Cell[10628, 417, 153, 3, 70, "Output",
 CellID->51801255]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10830, 426, 100, 2, 70, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[10955, 432, 125, 3, 70, "ExampleSection",
 CellID->1293636265],
Cell[11083, 437, 261, 6, 70, "ExampleText",
 CellID->64086686],
Cell[CellGroupData[{
Cell[11369, 447, 187, 5, 70, "Input",
 CellID->68295875],
Cell[11559, 454, 230, 5, 70, "Output",
 CellID->185132598]
}, Open  ]],
Cell[11804, 462, 383, 11, 70, "ExampleText",
 CellID->202926639],
Cell[CellGroupData[{
Cell[12212, 477, 273, 7, 70, "Input",
 CellID->77505142],
Cell[12488, 486, 318, 8, 70, "Output",
 CellID->136576129]
}, Open  ]]
}, Open  ]],
Cell[12833, 498, 148, 3, 70, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[13006, 505, 127, 3, 70, "ExampleSection",
 CellID->2061341341],
Cell[13136, 510, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[13269, 515, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[13414, 521, 131, 3, 70, "ExampleSection",
 CellID->258228157],
Cell[13548, 526, 142, 3, 70, "ExampleSection",
 CellID->2123667759],
Cell[13693, 531, 135, 3, 70, "ExampleSection",
 CellID->1305812373],
Cell[13831, 536, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[13974, 541, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

